{ Invokable implementation File for TAPS which implements IAPS }

unit APSImpl;

interface

uses InvokeRegistry, Types, XSBuiltIns, APSIntf,APCommonUnt;

type

  { TAPS }
  TAPS = class(TInvokableClass, IAPS)
  private
  public
  function Test:WideString;stdcall;
  function ExceSql(ssql:WideString;Var SOutData:WideString):Integer; stdcall;
  Function CallFunc(aFuncInfo:FuncInfo;sData:WideString;Var SOutData:WideString):Integer;stdcall;
  Function Run:Integer;
  end;

implementation


{ TAPS }

function TAPS.Test: WideString;
begin
  Result := 'Hello';
end;

function TAPS.CallFunc(aFuncInfo: FuncInfo; sData: WideString;
  var SOutData: WideString): Integer;
begin

end;

function TAPS.ExceSql(ssql: WideString; var SOutData: WideString): Integer;
begin
  Result := 1;
end;


initialization
{ Invokable classes must be registered }
   InvRegistry.RegisterInvokableClass(TAPS);
end.
